home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Sounds / Police.bas < prev    next >
BASIC Source File  |  1985-12-04  |  368b  |  16 lines
  1. 10    dim pitch%(3)
  2. 20    pitch%(0) = 50000
  3. 21    pitch%(1)=450
  4. 30    pitch%(2) = -100000
  5. 31    pitch%(3) = 350
  6. 40    period 2, pitch%()
  7. 50    dim shape%(7)
  8. 60    for x=0 to 7
  9. 70    read shape%(x) : next x
  10. 90    data 0,70,127,70,0,-70,-128,-70
  11. 100   wave 8, shape%()
  12. 110   z = sound( 6,0,10000,64,480)
  13. 120   audio 6,1
  14. 130   get a$ : if a$="" then 130
  15. 140   audio 6,-1
  16.